home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / grafik / wildfire / wildfirenofpu / steuerunganim < prev    next >
AmigaDOS Script File  |  1992-09-17  |  4KB  |  163 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "assign"
  14.     set vassign 1
  15. endif
  16. if "[param]" EQ "unassign"
  17.     set vunassign 1
  18. endif
  19. if "[param]" EQ "start"
  20.     set vassign 1
  21.     set vstart 1
  22.     set vunassign 1
  23. endif
  24. if "[param]" EQ "install"
  25.     set vinstall 1
  26. endif
  27. set binfo        0
  28. set bcopy        0
  29. set bassign      1
  30. set bunassign    1
  31. set bstart       1
  32. set binstall     0
  33.  
  34.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  35.     set nummer 0
  36.     if $binfo EQ 1
  37.          echo >>t:tmpsteuerung " Info" NOLINE
  38.          set nummer `eval $nummer + 1`
  39.          set ninfo $nummer
  40.     endif
  41.     if $bcopy EQ 1
  42.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  43.          set nummer `eval $nummer + 1`
  44.          set ncopy $nummer
  45.     endif
  46.     if $bassign EQ 1
  47.          echo >>t:tmpsteuerung " Assign" NOLINE
  48.          set nummer `eval $nummer + 1`
  49.          set nassign $nummer
  50.     endif
  51.     if $bunassign EQ 1
  52.          echo >>t:tmpsteuerung " Unassign" NOLINE
  53.          set nummer `eval $nummer + 1`
  54.          set nunassign $nummer
  55.     endif
  56.     if $bstart EQ 1
  57.          echo >>t:tmpsteuerung " Start" NOLINE
  58.          set nummer `eval $nummer + 1`
  59.          set nstart $nummer
  60.     endif
  61.     if $binstall EQ 1
  62.          echo >>t:tmpsteuerung " Installieren" NOLINE
  63.          set nummer `eval $nummer + 1`
  64.          set ninstall $nummer
  65.     endif
  66.     if "[param]" EQ ""
  67.         echo >>t:tmpsteuerung " Ende" NOLINE
  68.         execute >nil: t:tmpsteuerung
  69.         delete >nil: t:tmpsteuerung
  70.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  71.         if $reqerg[$$] EQ 0
  72.             skip Ende
  73.         endif
  74.     endif
  75.     if $reqerg[$$] EQ $ninfo
  76.         set vinfo 1
  77.     endif
  78.     if $reqerg[$$] EQ $ncopy
  79.         set vcopy 1
  80.     endif
  81.     if $reqerg[$$] EQ $nassign
  82.         set vassign 1
  83.     endif
  84.     if $reqerg[$$] EQ $nunassign
  85.         set vunassign 1
  86.     endif
  87.     if $reqerg[$$] EQ $nstart
  88.         set vassign 1
  89.         set vstart 1
  90.         set vunassign 1
  91.     endif
  92.     if $reqerg[$$] EQ $ninstall
  93.         set vinstall 1
  94.     endif
  95. endif
  96.  
  97. if $vinfo EQ 1
  98. ;>>>>>>>> Hier Infotext eintragen
  99. endif
  100. if $vassign EQ 1
  101. ;>>>>>>>> Hier steht das Assign
  102.     Assign >nil: wf: :Grafik/Wildfire/WildfireNOFPU/
  103.     Assign >nil: wftut: :Grafik/wildfire/wftut/
  104.     Assign >nil: wftut2: :grafik/wildfire/wftut2/
  105.     Assign >nil: fonts: wf:fonts add
  106.     Assign >nil: libs: wf:libs add
  107.     if $vstart NOT EQ 1
  108.         :c/requestchoice20 >nil: Information "Assign angelegt!" OK
  109.     endif
  110. endif
  111. if $vstart EQ 1
  112. ;>>>>>>>> Hier steht das Startprogramm
  113.     cd wf:
  114.     :c/Metatool wf:Play_Anims.guide FT=GUIDE
  115.  
  116. endif
  117. if $vunassign EQ 1
  118. ;>>>>>>>> Hier steht das Unassign
  119.     Assign >nil: fonts: wf:fonts remove
  120.     Assign >nil: libs: wf:libs remove
  121.     Assign >nil: wftut: remove
  122.     Assign >nil: wftut2: remove
  123.     Assign >nil: wf: remove
  124.     if $vstart NOT EQ 1
  125.         :c/requestchoice20 >nil: Information "Assign entfernt!" OK
  126.     endif
  127. endif
  128. if $vcopy EQ 1
  129.     execute :c/Verzeichniskopieren ":Grafik/Wildfire/WildfireNOFPU/" "WildfireNOFPU" 16603136
  130. endif
  131. if $vinstall EQ 1
  132. ;>>>>>>>> Hier Install-Skript eintragen
  133.     assign l: :l add
  134.     cd >nil: :Grafik/Wildfire/WildfireNOFPU/
  135.     :c/WBstarter >nil: :Grafik/Wildfire/WildfireNOFPU/Installieren_auf_HD
  136.     assign l: :l remove
  137.     skip Ende
  138. endif
  139.  
  140. unset binfo
  141. unset vinfo
  142. unset ninfo
  143. unset bassign
  144. unset bunassign
  145. unset vassign
  146. unset vunassign
  147. unset nassign
  148. unset nunassign
  149. unset bstart
  150. unset vstart
  151. unset nstart
  152. unset binstall
  153. unset vinstall
  154. unset ninstall
  155. unset bcopy
  156. unset vcopy
  157. unset ncopy
  158. if "[param]" EQ ""
  159.     Steuerung
  160. endif
  161. LAB Ende
  162. unsetenv reqerg[$$]
  163.